From: Richard M. Stallman Date: Fri, 11 Jun 1993 21:06:14 +0000 (+0000) Subject: (read_process_output): Don't deactivate the mark. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95394 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=592ce97fa8f668e72b850350b27c1b1ea22e2bc7;p=emacs.git (read_process_output): Don't deactivate the mark. Do restore Vdeactivate_mark, so that no one else deactivates it. --- diff --git a/src/process.c b/src/process.c index 0a1ff9a422c..af3c079f541 100644 --- a/src/process.c +++ b/src/process.c @@ -2082,16 +2082,7 @@ read_process_output (proc, channel) specbind (Qinhibit_quit, Qt); call2 (outstream, proc, make_string (chars, nchars)); - /* Deactivate the mark now, so it doesn't happen - *after* the following command. */ - if (!NILP (current_buffer->mark_active)) - { - if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode)) - { - current_buffer->mark_active = Qnil; - call1 (Vrun_hooks, intern ("deactivate-mark-hook")); - } - } + /* Handling the process output should not deactivate the mark. */ Vdeactivate_mark = odeactivate; #ifdef VMS @@ -2153,17 +2144,7 @@ read_process_output (proc, channel) if (XFASTINT (old_begv) != BEGV || XFASTINT (old_zv) != ZV) Fnarrow_to_region (old_begv, old_zv); - /* Deactivate the mark now, so it doesn't happen - *after* the following command. */ - if (!NILP (current_buffer->mark_active)) - { - if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode)) - { - current_buffer->mark_active = Qnil; - call1 (Vrun_hooks, intern ("deactivate-mark-hook")); - } - } - + /* Handling the process output should not deactivate the mark. */ Vdeactivate_mark = odeactivate; current_buffer->read_only = old_read_only;